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14-Sep-1984 7 BASRIL SREIBASINIDEF -6S2; 1 . 
1 0001 Q MODULE BASSINIT_DEF ( ’ 
¢ ait) 0 IDENT = '1-012' ! File: BASINIDEF .832 
0005 0 )= 
4 0004 1 BEGIN 
5 0005 1! 
: BoRe 1 RRR R REAR ERAA EERE AERER ARERR EEE E EERE EEE AE TERETE EEE EEE 
'® 
8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
19 id i ‘* ALL RIGHTS RESERVED. * 
z ® 
\ borg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
16 b018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
\ itt : i: TRANSFERRED. * 
'® *® 
19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$3 ons: : - CORPORATION. « 
‘« ® 
$8 $653 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
25 0025 1 !* * 
26 0026 1 !* * 
eo? 0027 4 SRR REE RAE REAR A AAA EEE 
28 0028 1! 
$3 0029 1! 
0 0030 1 
31 0031 1 !++ 
3 R036 1 ! FACILITY: BASIC-PLUS-2 Frame Support 
3 0035 1! 
34 0034 1 ! ABSTRACT: 
35 0035 1! 
36 0036 1! These routines set up and tear down frames for BASIC-PLUS-2. 
37 0037 1! Frames are used for main routines, external functions, 
38 0038 1! external subroutines, internal functions (both DEFs and DEF*s) 
Z s'¥44 : internal subroutines (GOSUBs) and condition handlers. 
$3 pe} : } ENVIRONMENT: VAX-11 user mode 
45 004 1 ! AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 
44 Boee 1! 
45 045 1 ! MODIFIED BY: 
46 0046 1! 
47 0047 1 ! 1-001 - Original. This is just a shell. 
48 0048 1 ! 1-002 - Copy code from BASINIT. JBS 07-FEB-1979 
49 0049 1 ! 1-003 - Remove tests for scale factors and long/double, since the 
50 0050 1! compiler will not permit a DEF to have git Terent options 
51 0051 1! than its containing major procedure. JBS 07-FEB-1979 
2¢ B0eg 1 ! 1-004 = Change from BASS to BSF$ for wf stack frame. JBS 08-FEB-1979 
5 0055 1 ! 1-005 - Remove BASS$B_IN_L_FCD. JBS 09-FEB-19 
54 it 1! 1-006 - When nul ling thé Tirst string parameter, hold its address 
55 035 3! in an auxiliary variable to avoid a BLISS bug. JBS 12-FEB-1979 
56 8026 1 ! 1-007 = Allocate fixed string templates on the stack. JBS 20-MAR-1979 
57 0057 1 ' 1-008 = Don't imply that R11 points to a frame. JBS 08-MAY-1979 


os a et 1E$S0-1984 99:98:87 YANGHT S4NGBEMHGBT7SRo, cera 


e8 038 1! 1- 98 - Change LIBSS and OTS$S to STRS. {8s 21-MAY=1979 
1! 1- - Use shift operator instead of divide. BS ee 
60 060 1 ! 1-011 = Check for a proper argument List. JBS 03-AUG-1979 
2 Bpes ; 1-012 = Remove BASSK_WROMATPAC, not used. JBS 19-SEP-1979 
é goes 1 
64 0064 1 !<BLF/PAGE> 
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SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = 


| LINKAGES: 
LINKAGE 
BASSINIT_LINK = JSB (REGISTER = 0, R 
OBAL (BSFSA_MAJOR_STG = 11, BSFSA_ 
NOPRESERVE (8; 7, 6, 5, 4, 3, 2, 1, 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSINIT_DEF_R8 


; INCLUDE FILES: 


REQUIRE "RTLIN:RTLPSECT'; 
REQUIRE "RTLIN:BASFRAME'; 
REQUIRE "RTLIN:BASINARG'; 
LIBRARY ‘RTLSTARLE'; 


| MACROS: 

NONE 

: EQUATED SYMBOLS: 

NONE 

PSECTS: 

DECLARE _PSECTS (BAS); 

: OWN STORAGE: 

: NONE 

: EXTERNAL REFERENCES: 

EXTERNAL ROUTINE 
BA 


S$S$SIGNAL : NOVALUE, 
STRSFREE1_DX, 


: NOVALUE BASSINIT_LINK; 


1984 00:35:27 AX-11 8B -3 
198 00:33:87 BASRTL’S neis A 


GENERAL, NONEXTERNAL = 


2 V4.0-74 
BASIN IDEF .852;1 


WORD_RELATIVE); 


' start DEF 


macros for defing psects 
Define frame structure 
Define argument List 
System definitions 


declare psects for BASS facility 


signals error 
Deallocates a string 


Page 
. ( 


3 
) 


J 1 
wu VerSepm198e $1558: a BASRTL: SRE SBASINIDEF -892:1 


123 0501 1 BASSHANDLER; ! handles signals 

124 Be0g 1 

125 0505 1! 

126 0504 1 ! The following are the error codes used in this module. 

127 0505 1! 

128 8208 1 

192 0507 1 EXTERNAL LITERAL 

130 0508 1 BASSK_TOOFEWARG : UNSIGNED (8), ! Too few arguments 

131 0509 1 BASSK_TOOMANARG : UNSIGNED (8), ! Too many arguments 
132 0510 1 BASSK_SCAFACINT : UNSIGNED (8), ! Scale factor interlock 
133 0511 «1 BASS$K_PROLOSSOR : UNSIGNED (8), ! Program lost, sorry 
134 Baie 1 BASSK_ARGDONMAT : UNSIGNED (8), ' uments don't match 
133 Bat7 : BASSK_NOTIMP UNSIGNED (8); ! Not implemented 


g 
BASSINIT_DEF 16-Sep-1984 00:35:27 AX-11 Bliss-32 V4.0-74 
mete, E 12-8 08- 1 3be 90:33:62 BASRTL SRE IBASINIDEF 69251 
GLOBAL ROUTINE BASSINIT_DEF_R8 ( ' start DEF 
ARGLIST, ! frame parameters 
DATA_RELOC ' Start of data 
) : NOVACUE BASSINIT_LINK = 


pole lolelelelelelololo) 


_MAJOR_STG : REF BLOCK (0, BYTE] FIELD (BSFSMAJOR_FRAME), 
BSFSA_MINOR-STG : REF BLOCK (CO, BYTE) FIELD (BS 
BSF SA_TEMP_STG; 


BUILTIN 
AP, 


F SMINOR™ FRAME) 


138 3? 1 

139 1 1 

140 2] 1 

141 18 #1 

oe 519 1 

14 520 1 !4¢ 

re 2 1 ! FUNCTIONAL DESCRIPTION: 

146 5 : 74 Set up a frame for a BASIC-PLUS-2 DEF. The frame is allocated 
147 524 1! on the stack, and R10 and R9 are set up to point to it. 
re 2 5 : } The argument tells how to do the allocation. 

139 03 ; : FORMAL PARAMETERS: 

12¢ 0399 1.5 ARGLIST.ra.v List of information needed to set up the 
15 0530 1! frame. See BASIC-PLUS<-2/VAX Description 
154 0531 1! of Generated Code for details. 

155 bees 1! DATA_RELOC.ra.v Address of the major precqeure 's contribution 
156 0533 1! to the data PSECT. This is needed so that the 
157 0534 1! argument List can be PIC. 

158 0535 1! 

159 0536 1 ! IMPLICIT INPUTS: 

160 0537 1! 

161 0538 1! NONE 

162 0539 1! 

163 0540 1 ! IMPLICIT OUTPUTS: 

164 0541 1! : , : 
165 Beg 1! The values of R10 and R9, which point to the automatic 
196 Betz ' } storage and the temporary storage, respectively. 

168 0545 1 ! ROUTINE VALUE: 

169 0546 1! 

170 0547 1! NONE 

171 0548 1! 

4 0549 1 ! COMPLETION CODES: 

17 0550 1! 

174 0551 1! NONE 

175 023¢ 1! 

176 0555 1! SIDE EFFECTS: 

177 0554 1! ; 
178 0555 1! Leaves lots of things on the stack for use by the compiled 
179 0556 1! BASIC-PLUS=-2 sete. These things will be removed by 

180 0557 1! BASSEND_DEF _R8. 

8238 2: 

182 559 1 !-- 

183 0560 1 

184 0561 BEGIN 

185 B20¢ 

186 056 = REGISTER 

187 0564 BSFSA_MA 

H+ Bee? 

nt 

191 5 3 

1 4 05 

1 0570 

194 0571 


oovood 
NNO 


FP, 
SP; 


pAStINIT oer 1$-Sep-1984 00:55:27 YAK=IT BLigg=52 v4.0-742, 


MAP 
ARGLIST : REF BLOCK CO, BYTE] FIELD (BASSINIT ARGS), ! arg List 
AP : REF VECTOR; ! caller's arg List 


4 
! Define local variables as registers. We cannot have any stack locals 
since we manipulate the stack pointer in this routine. 


REGISTER 
RETURN_ADDRESS, ' address to return to 
FMP : REF BL BSFSFCD), ' pointer to FCD 
ARRAY_DESC : ! pointer to build oreay descriptors 
ARRAY _INDEX; ! index for array modification 
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'¢ 
Save return address because we are going to fool with the stack 


RETURN_ADDRESS = ..SP; 


Make sure we are passed an argument List we understand. 


TESS SSSSCF 
MEW —O0O@n~ 


38 IF (.ARGLIST CBASS$SB_IN_V_FCD] NEQ BASSK_IN_V_FCD) THEN BASSS$SIGNAL (BASSK_NOTIMP); 
98 1+ 


palo lw lw lolol alo lolalaleleleleloelolelelelelelelolololo) 
Ab Ab Ab Ah Ab Ab Ab Ah Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab bh Ah Ab Ab Ab ah Al 


221 : 
292 0599 ! Allocate frame control data. 
22 0600 !- 
$$¢ 0601 FMP = FP; 
5 Reng SP = .FMP = BSFSK_LENFCDDEF + ZUPVAL; 
26 060 '¢ 
27 0604 ! Allocate BSFSA_USER_HAND. 
228 0605 : It is initialized to 0 normally (ON ERROR GOTO 0), but if the 
$$9 pene ! first statement in the program is ON ERROR GOTO <line number> 
230 060 : or ON ERROR GO BACK, it is initialized to 1 (ON ERROR GO BACK) 
231 0608 ! to prevent a ‘‘window’’ in which error handling is ON ERROR GOTO 0 
0609 ! no matter what the user wants. 
' a 
5 Role IF ((C,ARGLIST CBASSW_IN_FLAGS]) AND (BSFSM_FCD_OEGO)) NEQ 0) 
$38 061 THEN 
7 0614 BEGIN 
§ 8 net? SP = .SP = ZUPVAL; 
9 ois SP = ls 
40 061 END 
at 0618 
4 0619 BEGIN 
% 0 SP = .SP = ZUPVAL; 
44 1 .SP = 0; 
45 § END; 
46 06 
47 36 4 '¢ 
48 5 ' LOAD Rn (R10) 
49 06 $ le 
50 06 BSFSA_MINOR_STG = .SP = 127; 
51 0628 


BASSINIT DEF 


PMUPUPOINOROPURoPORoTufnfefor 
a 
—oo 


POPORoNoRONoNOfoPofoNIND 
Se te es be be) 
ODONAWUE wr 


™m 
oo 
—_ 


> ty 


SSSLSSHSTES 


Oooo 
San 
FP 


3 


a 
16-Sep-1984 00:35:27 AX=11 Bliss-32 V4.0-74 
1035-1 $8e 99:33: 7 EBASRTL SRC BASINIDEF -B32;1 


Initialize parts of the frame control data. 


FMP [BSFSA_MARK] = 0; 

FMP [BSFS$A_BASE_R11] = .BSFSA_MAJOR_STG; 

FMP C[BSFSA_BASE-R10] = .BSFSA-MINOR SIG: 

FMP [BSF$B_LEN_FCD) = BSFSK_LENFCDDEF; 

FMP (BSF$B-PROC_CODE] = .ARGLIST EBASSB_IN_ PROC J; 

FMP CBSFS$WIFCD FLAGS) = .ARGLIST CBAS$W-IN-FLAGS); 

FMP CBSFSA_-PROC_ID} = .ARGLIST CBAS$SL_IN_PROC_I] + .DATA_RELOC; 
FMP [BSFSA-INIT-ARG] = .ARGLIST; 

FMP CBSFSL-INIT-RELJ = .DATA_RELOC; 


'¢ 
Allocate numeric scalars. They are all initialized to zero. 
an Sores FROM 1 TO .ARGLIST CBAS$L_IN_LEN_SCJ DO 
SP = .SP = XUPVAL; 
SP = 0; 
END; 
‘+ 
Copy formals. 
en See FROM MIN (.ARGLIST CBAS$B_IN_NO_FMLJ, ((.AP [0]) AND 255)) TO 1 DO 
SP = .SP = ZUPVAL; 
.SP = .AP C. COUNTER); 
END; 


'¢ 
} Allocate and initialize descriptors. 


i SP = .SP = .ARGLIST CBASSL_IN_LEN_DTI; 

Set ARRAY_DESC to point to the space allocated. 

ARRAY_DESC = .SP; 

i Load the space from the template and then modify it based 

on the modification table. 

ee Seen FROM 0 TO ((.ARGLIST CBAS$SL_IN_LEN_DT]*=-2) - 1) DO 
ARRAY_DESC C.COUNTER®*ZUPVAL, 0, ZBPVAL, 0) = .((.ARGLIST CBASSL_IN_DT_TMT]) + ! 
gDATATRELOC + (. COUNTER®ZUPVAL 5); 


'¢ 
Now modify the descriptors. These are usually array descriptors. 


INCR COUNTER FROM 0 TO (.ARGLIST CBAS$L_IN_LEN_DM) - 1) DO 
ARRAY_INDEX = .((. ARGLIST CBASSL_IN_DT_MOD]) + .DATA_RELOC + (.COUNTER®*ZUPVAL)); 


N 1 
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mite) 12-Sep-1984 90: 33: 5 BASRTLe SRESBASINGDEF 68251 ° (3) 
09 068 BSFSA_MINOR_STG C.ARRAY_INDEX, 0, %BPVAL, 0) : 
19 aes = pe BSFSA_MINOR_STG [.A RRA Y_INDEX, 0, XBPVAL, OJ + .BSFSA_MINOR_STG; 
\¢ 6 § 
le be94 att te d i tri d ipt 
ocate dynamic string descriptors. 
1 069 
13 0694 INCR COUNTER FROM 1 TO .ARGLIST CBAS$W_IN_NO_DSTJ DO 
18 0695 BEGIN 
6 S699 sop = jf — ! Poi 0 impli LL d 
.SP = ointer mplies not allocated. 
$f 0698 SP = .SP = XUPVAL; < 
$$ 0699 BLOCK -SP, DSC$B_CLASS; 0, BYTE] = DSCSK_CLASS_D ! dynamic 
r 0700 BLOCK :SP., DSCS$B_DTYPE; 0, BYTE] = DSCSK_DTYPE_T ' text 
24 0701 BLOCK £.SP, DSCSWILENGTH; 6, BYTE] = 0; !7 prvre ai = 0 
25 070 END; 
26 070 
27 0704 FMP CBSFSA_STR_DESC) = .SP; 
“56 0705 '¢ 
29 0706 ! Allocate fixed string templates. 
331 bron 5 
33) 0709 INCR COUNTER FROM 1 TO .ARGLIST CBAS$W_IN_NO_FSTJ DO 
333 0710 BEGIN 
334 0711 SP = .SP = ZUPVAL; 
335 0712 SP = 0; ! Pointer 0 implies not allocated. 
336 0713 SP = .SP = XUP , 
337 0714 BLOCK i. +S DScSB. CLASS; 0, BYTE] = DSCS$K_CLASS_ $3 ! fixed 
338 0715 ; BLOCK RA DSCSB_DTYPE;: 0, BYTE) = DSC$K_ “DTYPE-T ! text 
339 0716 BLOCK [C.SP. DScsu- LENGTH; 6, BYTE] = 0; !“Length = 0 
340 0717 2 END; 
341 0718 2 
a6 0719 '¢ 
oi o759 Allocate numeric array elements. They are all initialized to zero. 
345 O7¢¢ 2 
346 072 INCR COUNTER FROM 1 TO (.ARGLIST CBAS$SL_IN_LEN_NAJ*=2) DO 
347 0724 BEG 
348 0725 SP = .SP = XUPVAL; 
33 0726 .SP = 0; 
50 0727 § END; 
351 0728 
325 1454 '¢ 
5 730 ' Allocate temporary cells. 
eo MB BE 
28 0738 IF ((,ARGLIST CBAS$L_IN_NO_TST] NEQ 0) OR (.ARGLIST CBASSL_IN_NO_NMT] NEQ 0)) 
58 0735 BEGIN 
59 07 § ! ; , ; 
4 4 5 : We must set up R9. First allocate string temporaries. 
0739 
$69 0740 INCR COUNTER FROM 1 TO .ARGLIST CBASSL_IN_NO_TST] DO 
ae 0741 & BEG 
65 0742 & SP = .SP = XUPVAL; 


——_--——_—_--—-- 


BASSINIT_DEF 

iota 

; 66 743 4 SP = 0; 

; 367 ire 4 SP = .SP - 

; 68 0745 4 BLOCK [.SP, 
$ 69 Bre8 4 BLOCK L.SP, 
; 370 0747 & BLOCK (.SP, 
5 71 0748 END; 

3 Le: 0749 

: if $720 i*p int R9 he L 

: ' Point to the Last 

: ane a BSFSA_TEMP_STG 

: 8 Ets iy Lt Te i 

3 ! Now allocate numeric 

; 379 0756 te 

; 380 0757 3 SP = .SP = 

: 381 0758 2 END; 

3 $05 0759 2 

; 38 0760 2 !+ 

; 384 0761 2 ! Store RO in the stack 
s 385 Breg 2 i- 

: 386 0763 2 FMP CBSFS$A_BASE_R9J 
» Jer 0764 2! 

3; 388 0765 2 ! Complete frame. 

; 389 0766 2 !- 

; 390 0767 2 FMP CBSFSA_BASE_SPJ 
; «391 0768 2 FMP CBSFSA_HANDCER) 
: 392 0769 2 !+ 

s 595 0770 2! First consistency che 
; 394 0771 2 !- 

3; 395 0772 ; 

3; 396 0773 IF (((.AP (£03) AND 

: 397 0774 2 THEN 

: 398 0775 2 !+ 

; a 0776 2 ! The number of argumen 
; 400 0777 2 !- 

; 401 0778 3 BEGIN 

; 402 0779 3 

3; 403 0780 4 IF (((.AP (0)) 

3; 404 0781 3 HEN 

: 405 0782 3 BAS$$S1GNAL 
3; 406 0783 3 

: 407 th ; BASS$$SIGNAL 
: 408 OP 3 END 

: 410 $785 $ 

> 411 0788 3 IF (((.FMP CBSFSW_F 
: 612 0789 THEN 

: 413 0790 BEGIN 

> 414 0791 

: 415 0738 ; LOCAL 

> 416 079 STR_DESC_AD 
; 417 0794 

3; «64418 0795 '¢ 

; 4619 B89 

: 420 797 i serine result. 

3: 621 0798 ! that it is a dynamic 

: 622 0799 !e 
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supyat : ! Pointer 0 implies not allocated. 
DSC$B_CLASS; ‘ erred = DSC$K -CLASS Di: } Synente 
SCS$B_DTYPE; BYTE] = _OSCSKIOTY PE-T; ! text 
C$W_LENGTH; 6, BYTE] = 0; ! Léngth = 6 


string descriptor allocated. 
«SP; 
temporaries. 


-ARGLIST CBAS$L_IN_NO_NMTI; 


frame for setting up 1/0 Lists. 
= .BSFSA_TEMP_STG; 


= .SP; 

= BAS$HANDLER; 

cks. 

255) NEQ .ARGLIST CBAS$B_IN_NO_FMLJ) 

ts is incorrect. 

AND 255) GTRU .ARGLIST CBAS$B_IN_NO_FMLJ) 


(BAS$K_TOOMANARG) 
(BASS$K_TOOFEWARG) ; 


CD_FLAGS]) AND (BSFSM_FCD_RSTR)) NEQ 0) 


DR : REF BLOCK (8, BYTE); 


i This aecsere has been marked by the compiler as returning a 
Be sure that there is at 


east one formal, and 


string descriptor. If so, null its value. 


en 


Ma me Oe Be Be Os Be Oe Bs Be Be Os Oe Be Os Os Oe Ge Be Oe Be Se Se Fe Se Se Ge Se Sean FH Se Se Be Se Se Ge Se Oe ase Be Oe ose Oe 8 Os Os Os Os OS Os OS Be Os BE Be ee 
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| BASSANIT_DEF 18-56 1984 35:27 AX-11 Bliss-32 V4.0-74 
jor 12-808 -1 882 00:33:65 BASRTL SRE IBASINIDEF 642: 1 
3 423 0800 
; 2 ¢ 49 IF (.ARGLIST CBAS$B_IN_NO_FMLJ LSSU 1) THEN BASSSSIGNAL (BAS$K_TOOFEWARG); 
: 426 $808 STR_DESC_ADDR = AP (1); 
; ? bao STR_DESC_ADDR = . «STR_DESC_ADDR; 
; 429 B88 4 IF ((.STR_DESC_ADDR Postes Chass NEQU DSCSK_CLASS_D) OR 
: : ? +44 4 . tT RADESS ADR DSCSB_DTYPEJ NEQU DSCSK_DTYPE_T)) 
: 43 0809 BASSSSIGNAL (BASS$K_ARGDONMAT); 
3 133 0810 “i 
3 eee 0811 '¢ 
> 435 bai§ : Null the string. This insures that, if the procedure does not reference 
3 ¢3 pez the string, the function will have the value of the null string. 
: 438 0815 STRSFREE1_DX (.STR_DESC_ADDR); 
; 439 0816 2 END; % fc 
; 440 0817 § 
ger, BA EP pa ci eon 0 
s ! Put the return address back on the stack so we can return to the 
: 443 0820 2 ! caller. 
; 444 0821 2 !- 
3; 445 tH 2 SP = .SP = XUPVAL; 
3; 446 082 2 -SP = .RETURN_ADDRESS; 
: 4467 0824 2 RETURN; 
: 448 0825 1 ND; ! of BASSINIT_DEF_R8 
.TITLE BASSINIT_DEF 
eIDENT \1-012\ 
-EXTRN BASSSSIGNAL, STRSFREE1_DX 
-EXTRN BASSHANDLER, BAS$K_TOOFEWARG 
.EXTRN BAS$K_TOOMANARG 
SEXTRN BASSK-SCAFACINT 
“EXTRN BAS$K~PROLOSSOR 
-EXTRN BASSK~ARGDONMAT 
-EXTRN BASSK~NOTIMP 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
57 51 DO 00000 BASSINIT _DEF_R8:: 
AMOVL R1, R7 
54 50 00 00003 MOVL RO, R4 
52 6E D0 00006 MOVL (SP), RETURN_ADDRESS 
01 04 A& 91 00009 CMPB 4(ARGLIST), #1 
0B 13 0000D BEQL 
7E 00G 8F 9A OOOODF MOVZBL *#BASSK_NOTIMP, -(SP) 
000000006 00 01 FB et CALLS #1, BASSS$SIGNAL 
53 5D DO OOOTA 1$: MOVL FP. FMP 
5E D8 A3 9E 0001D MOVAB -40(R3), SP 
08 64 3¢ «£1 00021 BBC #60, (ARGLIST), 2% 
5E 04 Cs 0025 SUBL2 #4, SP 
6E 4 DO 00028 MOVL #i, (SP) 
5 11 00028 BRA 3$ 
5E 04 C2 0002D 2$: SUBL2 #4, SP 
6E D4 00030 CLRL (SP) 


dD 2 
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Rete 13-808 - 1382 90: 33:6! EBASRTL SRE BASINIDEF .B32;1 
SA 81 AE 9E 00 3$: MOVAB =127(SP), BSFSA_MINOR_STG 
FC OA ps 0 CLRL = <4 (FMP) 
FO A A D 000 MOVQ 3 geet ee STG, -16(FMP) 
Ee Ok C 90 00030 MOVB #44, =28(FMP) 
ES A 05 AS 90 0041 MOVB  5S(ARGLIST), -27(FMP) 
EG A 06 AG 80 46 MOVW  6(ARGLIST), -26(FMP) 
eB OA 08 B447 : 0048 MOVAB QB (ARGLISTS (DATA RELOC], -24(FMP) 
D8 OA 54 DO 00051 MOVL  ARGLIST, -4O(FMPY 
DC OA 57 D0 00055 MOVL DATA_RELOC, -36(FMP) 
50 D4 00059 CLRL COUNTER 
05 11 00058 BRB $ 
SE 04 C2 0005D 48 SUBL2 #4, SP 
6E 04 00060 CLRL (SP 
F6 50 10 AG F3 00062 5$ AOBLEQ 16(ARGLIST), COUNTER, 4$ 
50 14 Ad 9A 0006 MOVZBL 20(ARGLIST). RO 
50 6C 91 00068 CMPB CCAP), 
03 1€ 0006 BGEQU 6$ 
50 6C 9A 0007 MOVZBL (AP), RO 
50 D6 00073 6$ INCL COUNTER 
07 11 00075 BRB $ 
SE 04 C2 00077 7$ SUBL2 #4 sp 
6E 6C40 DO O007A MOVL (AP)CCOUNTER], (SP) 
F6 50 £5 OOO7E 8$ SOBGTR COUNTER 
5E 18 Ad C2 00081 SUBL2  24(ARGLIST), SP 
50 SE 00 00085 MOVL SP, ARRAY_DESC 
56 18 AG FE BF 00088 ASHL #2, 24(ARGLIST), R6 
51 01 CE O008E MNEGL #1, COUNTER 
0A 11 00091 BRB 10 
55 57 1¢ A& C1 00093 9S: ADDL3 28(ARGLIST), DATA_RELOC, R5 
6041 6541 09 00098 MOVL (RS) CCOUNTER], (ARRAY_DESC)CCOUNTER] 
F2 51 56 F2 0009D 10$ AOBLSS R6, COUNTER, 9$ 
51 01 CE 0001 MNEGL #1. C 
OF 11 OO0A4 BRB 12$ 
55 57 24 A&G C1 000A6 11$:  ADDL3 36(ARGLIST), DATA_RELOC, R5 
50 6541 DO O00AB MOVL (RS) CCOUNTER], ARRAY_ INDEX 
604A 9F OOOAF PUSHAB (ARRAY INDEX) (BSF$A_MINOR_STG) 
9E SA CO 0008 ADDL2 BSFSA MINOR_STG, a(SP)+ 
EC 51 20 AS F2 00085 128 AOBLSS 32(ARGLIST)> COUNTER, 11% 
51 28 «AG OC 900BA MOVZ2WL 4OCARGLIST). R1 
50 D4 0008 CLRL COUNTER 
OF 11 000C BRB 14$ 
SE 04 ce b00¢ 13$ SUBL2 #4, SP 
3 00C CLRL (SP) 
5E 4 ¢ 90¢ SUBL2 #4 sp 
6 02060000 8F DO OO0CA MOVL #34471936, (SP) 
ED 0 1 £3 00001 14$:  § AOBLEQ Ri, COUNTER 13 
EO A3 E p D5 MOVL SP. -32(FMP 
51 2A «AG 3C 00009 MOVZ2WL 42¢ARGLIST), R1 
50 04 00000 CLRL COUNTER 
OF 11 OO0DF BRB 
SE 04 C2 000E1 15$: SUBL2 #4, SP 
6E 04 O00E4 CLRL (SP) 
SE 4 ¢ OE6 SUBL2 sp 
of 010E0000 8F D0 O00E MOVL #17694720, (SP) 
gD e. FO 16$:  AOBLEQ R1, COUNTER, 15% 
0 OM a ee £4 ASHL #0, 44(ARGLIST), RO 
1 04 OOOFA CLRL COUNTER 


SOOCOOOoCOOOCooO 


b SR ne ¢ 
> 


| BASSINIT_DEF 
Ley 
5 
se Bg 
F? 51 55 
30 AG 
05 
34 OG 
1F 
2 
se 06 
E 
5E 4 
oF er F 
EC 5 0 AG 
59 5E 
5 34 OG 
EC A 59 
F8 a 43 
63 000000006 0 
14 AG o¢ 
1 
06 
7E 00G 8F 
04 
7E 00G 8F 
000000006 00 01 
7 E6 AS 0D 
14 AG 
0B 
7E 00G 8F 
000000006 00 01 
53 046 =A 
53 6 
02 03 az 
OE 02 =A 
08 
7E 00G 8F 
000000006 00 } 
000000006 00 01 
5E 4 
6E 2 
; Routine Size: 411 bytes, Routine Base: _BASSCODE 
0826 
0827 ND 
0828 
0829 


LUDOM 


MOS OFF NVWBDEOM OLS FOV "OF NATO 


a SSS Sevss PP PWN 2 SS" OOOCOCOO Tm 


MONDO D@ FW OM D PNUD BP S$ FB WWW MOOCNMNOWMON EN FWY EP 
~~ 
RESLSASBE=S 


Ogos "O00 09 O"0— OM NO O “OWT TFO "9290-9 -90 -9oO T90— 
SSSsssssss 

SOoooooocooooooooooooooooooooooo pejeleleleleleleleleoleleoilo) 

Ok kk a ed do od od od od dd I IOOOD 


SOOCOCOCOCOCOCOOOOCOOOCOoOOoOOO 


oo 
=n 


+ 0000 


rrr 
Wrw 
AMO 


268: 


278: 
28$: 
298: 


19:33:67 — EeAsntussme Seasiider -082: 1 
8 


RQ, COUNTER, 17$ 
48(ARGLIST) 


(ARGLIST) 


a sp 
#34471936, (SP) 
4B(ARGLIST), COUNTER, 208 
$F BSFSA_TEMP_STG 
2(ARGLIST), § 

BSFSA_TEMP STG, -20(FMP) 
P, -B(FMPY 


BASSHANDLER, (FMP) 
(AP), 20(ARGLIST) 
§ 
#BASSK_TOOMANARG, -(SP) 
#BASSK_TOOFEWARG, -(SP) 
#1, BASS$S$SIGNAL 
#18, -26(FMP), 298 
OCARGLIST) 
#BASSK_TOOFEWARG, -(SP) 
SSSSIGNA 
4(AP), STR_DESC_ADDR 
(STR_DESC_ADDR); STR_DESC_ADDR 
3(STR_DESC_ADDRS, #2 
(STR_DESC_ADDR), #14 
8$ 


#BASSK_ARGDONMAT, -(SP) 
#1, BASSSSIGNAL 


_DESC_ADDR 
a, STRSFREE1_DX 
RETURN_ADDRESS, (SP) 


co 


2 
| BASSINIT_DEF 16-Sep-1986 00: 33:87 VAX-11 Bliss-32 V4.0-74 Page 13 
1-012 14-Sep-1984 11:55:07 CBASRTL. SRC JBASINIDEF . B32;1 (3) 
| PSECT SUMMARY | 
: Name Bytes Attributes | 
:  _BASSCODE 411 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
; Library Statistics 
Fe ae a Le es Pe ee “-- Symbols -------- Pages Processing 
$ File Total toaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 6 0 581 00:01.1 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=LISS:BASINIDEF /08)=08J$ :BASINIDEF MSRC$:BASINIDEF /UPDATE=(ENH$: BAS INIDEF 
Size: 411 code + 0 data bytes 
Run Time: 00:12.8 
Elapsed Time: 00:26.6 
nes/CPU Min 390 


Lenenes/CPU-Rin: 20541 
Y Used: 176 pages 
a ation Complete 
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